home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 2 / AACD 2.iso / AACD / Online / CIM / stuff / SCRIPTS / fax_stfax.script < prev    next >
Encoding:
Text File  |  1998-12-19  |  1.4 KB  |  51 lines
  1.  
  2. ; $VER: V0.23 (30.09.1998)
  3. ; Written by Jan-Erik Tervo
  4. ; Arexx and CIM V2 must be running
  5.  
  6.  
  7. FAILAT 21
  8.  
  9.  
  10.      RUN >NIL: RequestChoice "CIM" "FAX Call Received" "OK"
  11.  
  12.  
  13.      IF EXISTS STFAX:STFax
  14.  
  15.             rx 'address CIM DEVICE_RELEASE'
  16.                     
  17.             IF ERROR
  18.                             
  19.                 RUN >NIL: RequestChoice "CIM" "Error !" "Ok"
  20.                            
  21.                ELSE
  22.                         
  23.                RUN >NIL: STFAX:STFax
  24.           
  25.                WaitForPort STFAX.1
  26.  
  27.                IF ERROR
  28.                               
  29.                    RUN >NIL: RequestChoice "CIM" "Error. Arexx port of STFax not found" "Ok"
  30.                  
  31.                   ELSE
  32.                                      
  33.                    ; sys:rexxc/rx >NIL: 'address STFAX.1 AUTOANSWER OFF'
  34.                    ; sys:rexxc/rx >NIL: 'address STFAX.1 DEVICE "Devs:serial.device" UNIT "0" BAUD "9600"'
  35.                    ; sys:rexxc/rx >NIL: 'address STFAX.1 INITMODEM'
  36.                    
  37.                    sys:rexxc/rx >NIL: 'address STFAX.1 RECEIVE FAXCLASS 1'
  38.                                      
  39.                    WAIT 5
  40.                    sys:rexxc/rx >NIL: 'address STFAX.1 QUIT'
  41.                    WAIT 5
  42.                 ENDIF
  43.                        
  44.              ENDIF
  45.              rx 'address CIM DEVICE_OPEN'
  46.           ELSE
  47.           RUN >NIL: RequestChoice "CIM" "Error. Fax Program not found" "Ok"
  48.      ENDIF
  49.  
  50.  
  51.